Inference at * 1 2 1 
Iof proof for Lemma int entire:



1. a : 
2. b : 
3. (a * b) = 0
4. (b = 0)
  a = 0 

latex

 by ((Using [`n',b] (BackThruLemma `mul_cancel_in_eq`)) 
CollapseTHENA ((Auto_aux (first_nat 1:n
C) ((first_nat 1:n),(first_nat 3:n)) (first_tok :t) inil_term))) 

latex

C1: 

C1:   (b * a) = (b * 0)
C.

Definitions	a  b  T , t  T, , , P  Q, x:A. B(x)
Lemmas	nequal wf, mul cancel in eq